home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_300 / 367_01 / futi14as.zoo / tac.c < prev    next >
C/C++ Source or Header  |  1992-02-22  |  19KB  |  704 lines
  1. /* tac - concatenate and print files in reverse
  2.    Copyright (C) 1988, 1989, 1990 Free Software Foundation, Inc.
  3.  
  4.    This program is free software; you can redistribute it and/or modify
  5.    it under the terms of the GNU General Public License as published by
  6.    the Free Software Foundation; either version 1, or (at your option)
  7.    any later version.
  8.  
  9.    This program is distributed in the hope that it will be useful,
  10.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.    GNU General Public License for more details.
  13.  
  14.    You should have received a copy of the GNU General Public License
  15.    along with this program; if not, write to the Free Software
  16.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  17.  
  18. /* Written by Jay Lepreau (lepreau@cs.utah.edu).
  19.    GNU enhancements by David MacKenzie (djm@ai.mit.edu). */
  20.  
  21. /* MS-DOS port (c) 1990 by Thorsten Ohl, ohl@gnu.ai.mit.edu
  22.    This port is also distributed under the terms of the
  23.    GNU General Public License as published by the
  24.    Free Software Foundation.
  25.  
  26.    Please note that this file is not identical to the
  27.    original GNU release, you should have received this
  28.    code as patch to the official release.  */
  29.  
  30. #ifdef MSDOS
  31. static char RCS_Id[] =
  32.   "$Header: e:/gnu/fileutil/RCS/tac.c 1.4.0.3 90/09/19 12:09:16 tho Exp $";
  33.  
  34. static char Program_Id[] = "tac";
  35. static char RCS_Revision[] = "$Revision: 1.4.0.3 $";
  36.  
  37. #define VERSION \
  38.   "GNU %s, Version %.*s (compiled %s %s for MS-DOS)\n", Program_Id, \
  39.   (sizeof RCS_Revision - 14), (RCS_Revision + 11), __DATE__, __TIME__
  40.  
  41. #define COPYING \
  42.   "This is free software, distributed under the terms of the\n" \
  43.   "GNU General Public License.  For details, see the file COPYING.\n"
  44. #endif /* MSDOS */
  45.  
  46. /* Usage: tac [-br] [-s separator] [+before] [+regex] [+separator separator]
  47.           [file...]
  48.  
  49.    Copy each FILE, or the standard input if none are given or when a
  50.    FILE name of "-" is encountered, to the standard output with the
  51.    order of the records reversed.  The records are separated by
  52.    instances of a string, or a newline if none is given.  By default, the
  53.    separator string is attached to the end of the record that it
  54.    follows in the file.
  55.  
  56.    Options:
  57.    -b, +before            The separator is attached to the beginning
  58.                 of the record that it precedes in the file.
  59.    -r, +regex            The separator is a regular expression.
  60.    -s, +separator separator    Use SEPARATOR as the record separator.
  61.  
  62.    To reverse a file byte by byte, use (in bash, ksh, or sh):
  63. tac -r -s '.\|
  64. ' file */
  65.  
  66. #include <stdio.h>
  67. #include <getopt.h>
  68. #include <sys/types.h>
  69. #include <signal.h>
  70. #include "system.h"
  71. #include "regex.h"
  72.  
  73. #ifdef STDC_HEADERS
  74. #include <stdlib.h>
  75. #include <errno.h>
  76. #else
  77. char *malloc ();
  78. char *realloc ();
  79.  
  80. extern int errno;
  81. #endif
  82.  
  83. /* The number of bytes per atomic read. */
  84. #define INITIAL_READSIZE 8192
  85.  
  86. /* The number of bytes per atomic write. */
  87. #define WRITESIZE 8192
  88.  
  89. char *mktemp ();
  90.  
  91. #ifndef _POSIX_SOURCE
  92. off_t lseek ();
  93. #endif
  94.  
  95. #ifdef MSDOS
  96.  
  97. #include <gnulib.h>
  98. #include <io.h>
  99.  
  100. /* We need a static malloc (with cleanup) here, so mask off
  101.    the one from gnulib   */
  102. #define xmalloc _xmalloc
  103. #define xrealloc _xrealloc
  104.  
  105. static char *_xmalloc (unsigned int n);
  106. static char *_xrealloc (char *p, unsigned int n);
  107.  
  108. extern void main (int argc, char **argv);
  109. static int tac (int fd, char *file);
  110. static int tac_file (char *file);
  111. static int tac_stdin (void );
  112. static void output (char *start, char *past_end);
  113. static void save_stdin (void );
  114. static void xwrite (int desc, char *buffer, int size);
  115. static SIGTYPE cleanup (void );
  116.  
  117. #else /* not MSDOS */
  118.  
  119. SIGTYPE cleanup ();
  120. int tac ();
  121. int tac_file ();
  122. int tac_stdin ();
  123. char *xmalloc ();
  124. char *xrealloc ();
  125. void output ();
  126. void error ();
  127. void save_stdin ();
  128. void xwrite ();
  129. #endif /* not MSDOS */
  130.  
  131. /* The name this program was run with. */
  132. char *program_name;
  133.  
  134. /* The string that separates the records of the file. */
  135. char *separator;
  136.  
  137. /* If nonzero, print `separator' along with the record preceding it
  138.    in the file; otherwise with the record following it. */
  139. int separator_ends_record;
  140.  
  141. /* 0 if `separator' is to be matched as a regular expression;
  142.    otherwise, the length of `separator', used as a sentinel to
  143.    stop the search. */
  144. int sentinel_length;
  145.  
  146. /* The length of a match with `separator'.  If `sentinel_length' is 0,
  147.    `match_length' is computed every time a match succeeds;
  148.    otherwise, it is simply the length of `separator'. */
  149. int match_length;
  150.  
  151. /* The input buffer. */
  152. char *buffer;
  153.  
  154. /* The number of bytes to read at once into `buffer'. */
  155. unsigned read_size;
  156.  
  157. /* The size of `buffer'.  This is read_size * 2 + sentinel_length + 2.
  158.    The extra 2 bytes allow `past_end' to have a value beyond the
  159.    end of `buffer' and `match_start' to run off the front of `buffer'. */
  160. unsigned buffer_size;
  161.  
  162. /* The compiled regular expression representing `separator'. */
  163. static struct re_pattern_buffer compiled_separator;
  164.  
  165. struct option longopts[] =
  166. {
  167. #ifdef MSDOS
  168.   {"copying", 0, NULL, 30},
  169.   {"version", 0, NULL, 31},
  170. #endif
  171.   {"before", 0, &separator_ends_record, 0},
  172.   {"regex", 0, &sentinel_length, 0},
  173.   {"separator", 1, NULL, 's'},
  174.   {NULL, 0, NULL, 0}
  175. };
  176.  
  177. void
  178. main (argc, argv)
  179.      int argc;
  180.      char **argv;
  181. {
  182.   char *error_message;        /* Return value from re_compile_pattern. */
  183.   int optc, longind, errors;
  184.  
  185.   program_name = argv[0];
  186. #ifdef MSDOS
  187.   setmode (0, O_BINARY);
  188.   setmode (1, O_BINARY);
  189. #endif /* MSDOS */
  190.  
  191.   errors = 0;
  192.   separator = "\n";
  193.   sentinel_length = 1;
  194.   separator_ends_record = 1;
  195.  
  196.   while ((optc = getopt_long (argc, argv, "brs:", longopts, &longind))
  197.      != EOF)
  198.     {
  199.       switch (optc)
  200.     {
  201.     case 0:
  202.       break;
  203.     case 'b':
  204.       separator_ends_record = 0;
  205.       break;
  206.     case 'r':
  207.       sentinel_length = 0;
  208.       break;
  209.     case 's':
  210.       separator = optarg;
  211.       if (*separator == 0)
  212.         error (1, 0, "separator cannot be empty");
  213.       break;
  214. #ifdef MSDOS
  215.     case 30:
  216.       fprintf (stderr, COPYING);
  217.       exit (0);
  218.       break;
  219.     case 31:
  220.       fprintf (stderr, VERSION);
  221.       exit (0);
  222.       break;
  223. #endif
  224.     default:
  225. #ifdef MSDOS
  226.       fprintf (stderr, "\
  227. Usage: %s [-br] [-s separator] [+before] [+regex] [+separator separator]\n\
  228.        [+copying] [+version] [file...]\n",
  229. #else /* not MSDOS */
  230.       fprintf (stderr, "\
  231. Usage: %s [-br] [-s separator] [+before] [+regex] [+separator separator]\n\
  232.        [file...]\n",
  233. #endif /* not MSDOS */
  234.            program_name);
  235.       exit (1);
  236.     }
  237.     }
  238.  
  239.   if (sentinel_length == 0)
  240.     {
  241.       compiled_separator.allocated = 100;
  242. #ifdef MSDOS
  243.       compiled_separator.buffer
  244.     = xmalloc ((size_t) compiled_separator.allocated);
  245. #else /* not MSDOS */
  246.       compiled_separator.buffer = xmalloc (compiled_separator.allocated);
  247. #endif /* not MSDOS */
  248.       compiled_separator.fastmap = xmalloc (256);
  249.       compiled_separator.translate = 0;
  250.       error_message = re_compile_pattern (separator, strlen (separator),
  251.                       &compiled_separator);
  252.       if (error_message)
  253.     error (1, 0, "%s", error_message);
  254.     }
  255.   else
  256.     match_length = sentinel_length = strlen (separator);
  257.  
  258.   read_size = INITIAL_READSIZE;
  259.   /* A precaution that will probably never be needed. */
  260.   while (sentinel_length * 2 >= read_size)
  261.     read_size *= 2;
  262.   buffer_size = read_size * 2 + sentinel_length + 2;
  263.   buffer = xmalloc (buffer_size);
  264.   if (sentinel_length)
  265.     {
  266.       strcpy (buffer, separator);
  267.       buffer += sentinel_length;
  268.     }
  269.   else
  270.     ++buffer;
  271.  
  272.   if (optind == argc)
  273.     errors = tac_stdin ();
  274.   else
  275.     for (; optind < argc; ++optind)
  276.       {
  277.     if (strcmp (argv[optind], "-") == 0)
  278.       errors |= tac_stdin ();
  279.     else
  280.       errors |= tac_file (argv[optind]);
  281.       }
  282.  
  283.   /* Flush the output buffer. */
  284.   output ((char *) NULL, (char *) NULL);
  285.   exit (errors);
  286. }
  287.  
  288. /* The name of a temporary file containing a copy of pipe input. */
  289. char *tempfile;
  290.  
  291. /* Print the standard input in reverse, saving it to temporary
  292.    file `tempfil